//*************************************************************
//*
//*    JCL FOR UNLOADING A SPOTLIGHT RECORDING
//*
//*    TO CUSTOMIZE:
//*    ADD THE HIGH LEVEL FOR THE DB2 EXIT AND LOAD LIBS
//*    ADD THE HIGH LEVEL FOR THE DSNTIAUL LOAD LIB
//*    ADD THE RECORDING OWNER AND NAME
//*    ADD THE SUBSYSTEM NAME TO THE CONTROL CARDS 
//*    ADD THE DSNTIAUL PLAN NAME TO THE CONTROL CARDS
//*
//*************************************************************
//*************************************************************                 
//* UNLOAD THE LOG RECORD                                    
//*************************************************************
//UNLODLOG EXEC PGM=IKJEFT01                                 
//*                                                          
//STEPLIB   DD DSN=ssidhlvl.SDSNEXIT,DISP=SHR                 
//          DD DSN=ssidhlvl.SDSNLOAD,DISP=SHR                 
//*                                                          
//SYSPRINT  DD SYSOUT=*                                      
//SYSPUNCH  DD SYSOUT=*                                      
//SYSTSPRT  DD SYSOUT=*                                      
//*                                                          
//SYSREC00  DD DSN=log unload dataset name,SPACE=(TRK,(1,1),RLSE), 
//         DISP=(NEW,CATLG,DELETE),UNIT=SYSDA                
//*                                                          
//SYSIN     DD *                                             
SELECT RECORDING_OWNER                                       
      ,RECORDING_NAME                                        
      ,RECORDING_DESC                                        
      ,RECORDING_STATUS                                      
      ,RECORDING_RET_CODE                                    
      ,REFRESH_RATE_FG                                       
      ,REFRESH_RATE_BG                                       
      ,START_TIME_SCHED                                      
      ,START_TIME_ACTUAL                                     
      ,END_TIME_SCHED                                        
      ,END_TIME_ACTUAL                                       
      ,REQUESTED_SAMPLES                                     
      ,SAMPLE_COUNT                                          
      ,RECORDING_SIZE_REQ                                    
      ,RECORDING_SIZE_ACT                                    
      ,RECORDING_OPTIONS                                     
  FROM QUEST.QCRECORD_LOG_0300                                
 WHERE RECORDING_OWNER = 'recording owner'                             
   AND RECORDING_NAME  = 'recording name'                      
;                                                             
/*                                                            
//SYSTSIN   DD *                                              
  DSN SYSTEM(ssid)                                            
  RUN PROGRAM(DSNTIAUL) PLAN(DSNTIBxx) PARMS('SQL') -         
      LIBRARY('ssidhlvl.RUNLIB.LOAD')                           
//*                                                           
//*************************************************************
//* UNLOAD THE RECORDING DATA                                 
//*************************************************************
//UNLODLOG EXEC PGM=IKJEFT01                                  
//*                                                           
//STEPLIB   DD DSN=ssidhlvl.SDSNEXIT,DISP=SHR                  
//          DD DSN=ssidhlvl.SDSNLOAD,DISP=SHR                  
//*                                                           
//SYSPRINT  DD SYSOUT=*                                       
//SYSPUNCH  DD SYSOUT=*                                       
//SYSTSPRT  DD SYSOUT=*                                       
//*                                                           
//SYSREC00  DD DSN=data unload dataset name,SPACE=(CYL,(10,5),RLSE),
//         DISP=(NEW,CATLG,DELETE),UNIT=SYSDA                 
//*                                                           
//SYSIN     DD *                                              
SELECT RECORDING_OWNER                                
      ,RECORDING_NAME                                 
      ,SNAPSHOT_SEQUENCE                              
      ,SNAPSHOT_TIMESTAMP                             
      ,REFRESH_TYPE                                   
      ,REFRESH_SEQUENCE                               
      ,RECORDING_DATA_TYP                             
      ,RECORDING_DATA_LEN                             
      ,RECORDING_DATA                                 
  FROM QUEST.QCRECORDING_0300                         
 WHERE RECORDING_OWNER = 'recording owner'                     
   AND RECORDING_NAME  = 'recording name'              
 ORDER BY SNAPSHOT_SEQUENCE, REFRESH_SEQUENCE         
;                                                     
/*                                                    
//SYSTSIN   DD *                                      
  DSN SYSTEM(ssid)                                    
  RUN PROGRAM(DSNTIAUL) PLAN(DSNTIBxx) PARMS('SQL') - 
      LIBRARY('ssidhlvl.RUNLIB.LOAD')                   

